home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / notes.dir / 00019_fscr1.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  1.8 KB  |  83 lines
  1. on exitFrame
  2.   global gReleaseMouse, gSpriteSelection
  3.   if gReleaseMouse then
  4.     if gSpriteSelection = 6 then
  5.       searchCurrentFolder()
  6.       putFilesToField()
  7.       go("open")
  8.     else
  9.       if gSpriteSelection = 7 then
  10.         searchCurrentFolder()
  11.         putExistingFilesToField()
  12.         saveNote()
  13.       else
  14.         if gSpriteSelection = 8 then
  15.           searchCurrentFolder()
  16.           putExistingFilesToField()
  17.           go("saveas")
  18.         else
  19.           go("notes")
  20.         end if
  21.       end if
  22.     end if
  23.   else
  24.     if rollOver(5) then
  25.       nothing()
  26.     end if
  27.     if rollOver(6) then
  28.       set the castNum of sprite 6 to cast "open.down"
  29.       updateStage()
  30.     else
  31.       set the castNum of sprite 6 to cast "open.up"
  32.       updateStage()
  33.     end if
  34.     if rollOver(7) then
  35.       set the castNum of sprite 7 to cast "save.down"
  36.       updateStage()
  37.     else
  38.       set the castNum of sprite 7 to cast "save.up"
  39.       updateStage()
  40.     end if
  41.     if rollOver(8) then
  42.       set the castNum of sprite 8 to cast "saveas.down"
  43.       updateStage()
  44.     else
  45.       set the castNum of sprite 8 to cast "saveas.up"
  46.       updateStage()
  47.     end if
  48.     go(the frame)
  49.   end if
  50.   if rollOver(10) then
  51.     set the castNum of sprite 10 to cast "icon.down"
  52.     pupSprites(1, 48, 0)
  53.     updateStage()
  54.     go("help")
  55.   end if
  56. end
  57.  
  58. on mouseUp
  59.   global gReleaseMouse, gSpriteSelection
  60.   set gReleaseMouse to 1
  61.   if rollOver(6) then
  62.     set gSpriteSelection to 6
  63.     pupSprites(1, 48, 0)
  64.     updateStage()
  65.   else
  66.     if rollOver(7) then
  67.       set gSpriteSelection to 7
  68.       pupSprites(1, 48, 0)
  69.       updateStage()
  70.     else
  71.       if rollOver(8) then
  72.         set gSpriteSelection to 8
  73.         pupSprites(1, 48, 0)
  74.         updateStage()
  75.       else
  76.         set gSpriteSelection to 0
  77.         pupSprites(1, 48, 0)
  78.         updateStage()
  79.       end if
  80.     end if
  81.   end if
  82. end
  83.